home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
sine blobs 4
< prev
next >
Wrap
Text File
|
1999-06-15
|
866b
|
26 lines
Category: Filter Factory Gallery U
Title: Sine Blobs 4...
Author: Greg Schorno
Copyright: Copyright: 1996 (c) Greg Schorno
ctl[0]: Control 1
ctl[1]: Control 2
ctl[2]: Control 3
ctl[3]: Control 4
ctl[4]: Color Phase
ctl[5]: Red Freq
ctl[6]:Green Freq
ctl[7]: Blue Freq
val[0]: 13
val[1]: 21
val[2]: 31
val[3]: 49
val[4]: 70
val[5]: 125
val[6]: 112
val[7]: 118
R:put((sin((m-y)*(ctl(0)-128)*16/M+cos(1/y*ctl(1)*32/M))*32+sin(y*ctl(2)*32/M+cos(1/x*ctl(3)*32/M)*32)),1),put((cos((x-y)*ctl(3)*16/M-sin(y*ctl(1)*32/M))*32+m-cos((y)*ctl(2)*64/M-sin(1/tan(x-y)*ctl(0)*32/M))*32),2),put((get(1)+get(2))*ctl(5)/128/128+val(4,-255,255),0),get(0)&256?511-(get(0)&511):get(0)&255
G:put((get(1)+get(2))*ctl(6)/128/128+val(4,-255,255),0),get(0)&256?511-(get(0)&511):get(0)&255
B:put((get(1)+get(2))*ctl(7)/128/128+val(4,-255,255),0),get(0)&256?511-(get(0)&511):get(0)&255
A:a